10 INPUT "Количество строк ="; M%: IF M% < 1 THEN 10
20 INPUT "Количество столбцов ="; N%: IF N% < 1 THEN 20
30 DIM AR(M%, N%)
40 FOR I=1 TO M%
50 FOR J=1 TO N%
60 PRINT "Элемент "; I; "-й строки, "; J; "-го столбца = ";
70 INPUT AR(I, J)
80 NEXT J, I
90 INPUT "Номер строки ="; K%: IF K% < 1 OR K% > M% THEN 310
100 P = 1: F = 0
110 FOR J=1 TO N%
120 IF AR(K, J) > 0 AND AR(K, J) < 10 THEN P = P * AR(K, J): F = 1
130 NEXT J
140 IF F=1 THEN PRINT "Произведение чисел равно"; P: GOTO 380
150 PRINT "Чисел, лежащих в указанном диапазоне, в строке нет."
160 END